home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource Library: Multimedia
/
Resource Library: Multimedia.iso
/
hypercrd
/
bok-bndr.hqx
/
Bookbinder
/
stack.txt
< prev
Wrap
Text File
|
1991-06-04
|
6KB
|
189 lines
-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2698
-- card count: 21
-- first card id: 2878
-- list block id: 8184
-- print block id: 3412
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 68928 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-------------------------------------------------------------------
-- This stack was created with Bookbinder 1.0.1, which aids in
-- the creation of HyperCard documents. Bookbinder is shareware
-- by Ralph Gonzalez, PO Box 54, Newark, DE 19711. Sept 20, 1990.
-------------------------------------------------------------------
on openStack
show menuBar
global stackJustPrinted
put false into stackJustPrinted
global gettingHelp
put false into gettingHelp
global xrefdepth
put 0 into xrefdepth
global showButton
put false into showButton
global cardJustPasted
put false into cardJustPasted
global cardJustDeleted
put false into cardJustDeleted
global deletedCard
put card field "deletedCard" of card "contents" into deletedCard
global bookmark1
global bookmark2
put card field "bookmark1" of card "contents" into bookmark1
put card field "bookmark2" of card "contents" into bookmark2
pass openStack
end openStack
on help
put id of this card into card field "return card" of card "help"
visual iris open
go card "help"
end help
on newCard
show background button "Update Page Nos" of card "contents"
pass newCard
end newCard
on doMenu choice
global showButton
global cardJustDeleted
global deletedCard
global cardJustPasted
global stackJustPrinted
if choice is "Print Stack..." then
push card
go card "contents"
show field "footnote1"
show field "footnote2"
put true into stackJustPrinted
pass doMenu
end if
if choice is "Paste Card" then
put true into showButton
-- can't show button immediately or the pasted card will have
-- a different background
put true into cardJustPasted
end if
if choice is "Undo" then
put true into cardJustPasted
-- in case you use "Undo" to paste a card
end if
if choice is "Cut Card" or choice is "Delete Card" then
show background button "Update Page Nos" of card "contents"
-- show button before cut in case paste follows, to prevent
-- change in background before paste
set lockScreen to true
push card
go card "contents"
get the id of this background
pop card
set lockScreen to false
if it is the id of this background then
-- i.e. deleting a true "page" card
if deletedCard is not "" then
answer "Please update page numbers first" with "OK"
else
put the id of this card into deletedCard
put true into cardJustDeleted
pass doMenu
end if
else
put true into cardJustDeleted
pass doMenu
end if
else
pass doMenu
end if
end doMenu
on idle
global showButton
global cardJustPasted
if cardJustPasted then
put false into cardJustPasted
-- if pasted card has "page" background, see idle handler for "page"
end if
if showButton then
put false into showButton
show background button "Update Page Nos" of card "contents"
end if
pass idle
end idle
on closeStack
global deletedCard
put deletedCard into card field "deletedCard" of card "contents"
global bookmark1
global bookmark2
put bookmark1 into card field "bookmark1" of card "contents"
put bookmark2 into card field "bookmark2" of card "contents"
pass closeStack
end closeStack
function idToNumber theID
return the number of card id theID
end idToNumber